Gracias por tu aporte, creo que me servirá 

Mira, yo te estoy pidiendo (por ejemplo) que me des la partitura de una canción y tu me estás pasando un programa para escucharlo, puede que me sirva, pero no es lo que busco. Y gracias por tu consejo.

Gracias por tu aporte, pero ahora me encunetro otro problema.

Según la wikipedia un Byte que lee el midi son 10 bits (0's y 1's), pues bien, cuando voy a poner a binario separándolo con "[]" me salen 8 bits, no 10 como decía la wikipedia.

Aquí está el código.

Private Sub Form_Load()
Dim leer As String
Open "leer.mid" For Input As #1
Input #1, leer
Close #1
ConvertBin leer
Text1 = leer
End Sub
Public Sub ConvertBin(TheString As String)
    Dim C As Integer
    Dim DD As Integer
    Dim EE As Integer
    Dim BinArray(7) As String
    Dim TempString As String
    Dim NewTheString As String
 
 
 
    For C = 1 To Len(TheString)
        DD = Asc(Mid(TheString, C, 1))
 
        BinArray(7) = DD Mod 2
        DD = DD \ 2
        BinArray(6) = DD Mod 2
        DD = DD \ 2
        BinArray(5) = DD Mod 2
        DD = DD \ 2
        BinArray(4) = DD Mod 2
        DD = DD \ 2
        BinArray(3) = DD Mod 2
        DD = DD \ 2
        BinArray(2) = DD Mod 2
        DD = DD \ 2
        BinArray(1) = DD Mod 2
        DD = DD \ 2
        BinArray(0) = DD Mod 2
 
        For EE = 0 To UBound(BinArray)
            TempString = TempString + BinArray(EE)
        Next EE
        TempString = TempString + "[]" 'Esto se lo puse para separar los bytes
        NewTheString = NewTheString + TempString
 
        TempString = ""
 
    Next C
 
    TheString = NewTheString
    NewTheString = ""
End Sub