Oversætte en stump Javascript til VB

Sindsyg måde at finde forskellen på længden af 2 strenge på, lavet om til VB kan den se sådan ud:
Function hej(string1 As String, string2 As String)
  hej = Abs(Len(string1) - Len(string2))
End Function

Der var jeg da alt for hurtig på aftrækkeren, det er selvfølge forskellen i tegn den returneret. Lavet om til VB

Function hej(string1 As String, string2 As String)
Dim m() As Integer
Dim i As Integer
Dim j As Integer
Dim diag As Integer
Dim tmp1 As Integer
Dim tmp2 As Integer

  ReDim m(Len(string1), Len(string2))

  m(0, 0) = 0

  For j = 1 To Len(string2)
    m(0, j) = m(0, j - 1) + 1
  Next
 
  For i = 1 To Len(string1)
    m(i, 0) = m(i - 1, 0) + 1
    For j = 1 To Len(string2)
      diag = m(i - 1, j - 1)
      If Mid(string1, i, 1) <> Mid(string2, j, 1) Then
        diag = diag + 1
      End If
     
      tmp1 = m(i - 1, j) + 1
      tmp2 = m(i, j - 1) + 1
      m(i, j) = IIf(diag < IIf(tmp1 < tmp2, tmp1, tmp2), diag, IIf(tmp1 < tmp2, tmp1, tmp2))
    Next
  Next
 
  hej = m(Len(string1), Len(string2))
End Function

tak for hjælpen

Hvor mange sprog vil du have den kode i ?

ik i flere tak :-)