i need thelp to simplify these codes

VB Code:
  1. FindStr = "*.mp3"

  2.     FileSize = FindFilesAPI(SearchPath, FindStr, NumFiles, NumDirs)

  3.     TotalScan = TotalScan + NumFiles

  4.     

  5.     FindStr = "*.asf"

  6.     FileSize = FindFilesAPI(SearchPath, FindStr, NumFiles, NumDirs)

  7.     TotalScan = TotalScan + NumFiles

  8.     

  9.     FindStr = "*.wma"

  10.     FileSize = FindFilesAPI(SearchPath, FindStr, NumFiles, NumDirs)

  11.     TotalScan = TotalScan + NumFiles

  12.     '.... more extension