Who shall and in which language convert this VBA UDF Code to be applicable for the application forms?
Function Tryme(mycell)
mylen = Len(mycell)
For j = 1 To mylen
mytest = UCase(Mid(mycell, j, 1))
If InStr(1, "AIJQY", mytest) > 0 Then
mysum = mysum + 1
ElseIf InStr(1, "BKR", mytest) > 0 Then
mysum = mysum + 2
ElseIf InStr(1, "CGLS", mytest) > 0 Then
mysum = mysum + 3
ElseIf InStr(1, "DMT", mytest) > 0 Then
mysum = mysum + 4
ElseIf InStr(1, "EHNX", mytest) > 0 Then
mysum = mysum + 5
ElseIf InStr(1, "UVW", mytest) > 0 Then
mysum = mysum + 6
ElseIf InStr(1, "OZ", mytest) > 0 Then
mysum = mysum + 7
ElseIf InStr(1, "FP", mytest) > 0 Then
mysum = mysum + 8
End If
Next j
Tryme = mysum
End Function
Thanx in advance!