Public Function StringNachLong(Eingabe As String) As Long
If Not LenB(Eingabe) = 4 Then Err.Raise 1, "StringNachLong", "Kein " & _
  "binärer String in Länge 4."
Dim ByteArr() As Byte
ByteArr() = Eingabe
If ByteArr(3) >= &H80 Then
  StringNachLong = &H80000000 + CLng(ByteArr(3) - &H80) * &H1000000& + CLng( _
    ByteArr(2)) * &H10000& + CLng(ByteArr(1)) * &H100& + CLng(ByteArr(0))
Else
  StringNachLong = CLng(ByteArr(3)) * &H1000000& + CLng(ByteArr(2)) * &H10000& _
    + CLng(ByteArr(1)) * &H100& + CLng(ByteArr(0))
End If
End Function

Dim Zahl As Long
Zahl = StringNachLong(ChrB(127) & ChrB(100) & ChrB(20) & ChrB(0))
MsgBox Zahl

Dim Zahl As Long
Zahl = StringNachLong(StrConv(Chr(127) & Chr(100) & Chr(20) & Chr(0), _
  vbFromUnicode))
MsgBox Zahl

String_var = "eo8t"
Dim Zahl as Long
Zahl = StringNachLong(StrConv(String_var, vbFromUnicode))
MsgBox Zahl  ' -> 1949855589