Wie Filippo schon angedeutet hat, kann man leider nicht einfach einen VB Code direkt nach B4PPC kopieren und erhoffen dass Alles gleich läuft.
Ich habe versucht Deinen Code nach B4PPC zu übersetzten.
Ich habe das Programm nicht getestet, das überlasse Ich Dir, aber es kommen jetzt keine Fehlermeldungen mehr.
Einige Zeilen sind auskommentiert da ich nicht weiss was sie bedeuten.
Unterschiede zwischen VB und B4PPC:
Select Case > Select, case ist hier nicht nötig
Atn > ATan
ElseIf > Else IF
Sqr > Sqrt
PI > cPI
E > cE
Exp(a) > cE^a
Private Const evNumber = 1 > Dim evNumber As Number : evNumber = 1
LCase(c) > StrToLower(c)
Mid$(S, k, 1) > StrAt(S, k)
Mid$(S, i1, i2-i1+1) > SubString(S, i1, i2-i1+1)
usw.
Function gibt es nicht in B4PPC sonder nur Sub.
Der Rückgabewert wird mit Return X übergeben.
Beste Grüsse.