Function ValidateString(vString, sValidCharcters)
' vString = String vi vill validera.
' sValidCharcters = Tecken vi godkänner.

' Returnerar True om vString är godkänd, False om inte.

Dim iStep1, sStringChr, iStep2, sValidChr, sString

For iStep1 = 1 To Len(vString)
' Steppa igenom vString, tecken för tecken.
sStringChr = Mid(vString, iStep1, 1)
For iStep2 = 1 To Len(sValidCharcters)
' Steppa igenom sValidCharcters, tecken för tecken.
sValidChr = Mid(sValidCharcters, iStep2, 1)
If sStringChr = sValidChr Then
' Innehåller sStringChr samma tecken som sValidChr
' så lägger vi till det tecknet i sString och hoppar
' ut ur denna For-loop för att testa nästa tecken i
' vString.
sString = sString & sValidChr
Exit For
End If
Next
Next

If sString = vString Then
' Om sString innehåller det samma som vString så är
' vString en godkännd string.
ValidateString = True
Else
ValidateString = False
End If

End Function