Перевод Pascal на VB

'{ вычитание двоичных строк, первое число должно быть >= второго }
Function BinSub(s1 As String, s2 As String) As String
 
Dim i As Long, j As Long
'{выравнивание строк по длине}
    i = Len(s1) - Len(s2)
    If i > 0 Then
      s2 = String(i, "0") & s2
    ElseIf i < 0 Then s1 = String(-i, "0") & s1
    End If
    i = Len(s1) ' {начало алгоритма вычитания}
    BinSub = Space$(i)
    For i = i To 1 Step -1
      j = AscW(Mid$(s1, i, 1)) - AscW(Mid$(s2, i, 1)) - j
      If j < 0 Then
        Mid$(BinSub, i) = ChrW$(50 + j)
        j = 1
      Else
        Mid$(BinSub, i) = ChrW$(48 + j)
        j = 0
      End If
    Next
'    {Уничтожение передних нолей}
    i = InStr(BinSub, "1")
    Select Case i
    Case 0: BinSub = "0"
    Case Is > 1: BinSub = Mid$(BinSub, i)
    End Select
End Function

Sub main()
Dim s$()
s = Split(InputBox("Введите два двоичных числа, разделенных пробелом", , "10000 111"))
MsgBox "результат вычитания = " & BinSub(s(0), s(1))
End Sub

Function str2bin(Stri As String) As Integer
     For i% = 1 To Len(Stri)
         str2bin = str2bin * 2 + Val(Mid$(Stri, i%, 1))
     Next i%
End Function
Function bin2str(n As Integer) As String
     If n = 0 Then
        bin2str = "0"
     ElseIf n < 0 Then
        n = Abs(n)
        z$ = "-"
     End If
     Do
        If n = 0 Then Exit Do
        bin2str = CStr(n Mod 2) & bin2str
        n = n \ 2
     Loop
     bin2str = z$ & bin2str
End Function
Function binsub(s1 As String, s2 As String) As String
         n1% = str2bin(s1)
         n2% = str2bin(s2)
         nn% = n1% - n2%
         binsub = bin2str(nn%)
End Function
Sub Main()
    s1$ = "1001"
    s2$ = "101"
    Debug.Print binsub(s1$, s2$)
    Debug.Print binsub(s2$, s1$)
End Sub