c to vb convertion

[Rob123]

I'm just writing this as I go, so it will probably have a few Bugs in it.

Public Function gethalf(donde As String) As Integer
gethalf = Chr(Asc(Mid(donde, 2, 1)) * (2 ^ 8) Or Mid(donde, 1, 1))
End Function
 
Public Function sethalf(donde As String, que As Integer)
Mid(donde, 1, 1) = que And &HFF
Mid(donde, 2, 1) = (que / (2 ^ 8)) And &HFF
End Function
 
Public Function inv(cadena As String)
Dim i As Integer
Dim temp As String
 
For i = 0 To 10 Step 2
    temp = Mid(cadena, i, 1)
    Mid(candena, i, 1) = Mid(cadena, i + 1, 1)
    Mid(cadena, i + 1, 1) = temp
Next
End Function