error 13:mismatch line 1....

Im very new to VB, and in this program the goal was to output a number for each letter that was inputed in
It works fine as a VBs but when it was inside the Scorbase, this error came up -13, type mismatch

any advice would be awesome!

thanks in advance

OPTION EXPLICIT

Dim size,font, name,nameLength, i, nameArr(), nameToNum(),valid

Function getASCII(letter)
If letter=" " Then
getASCII=32
ElseIf letter="A" Then
getASCII=65
Elseif letter="B" Then
getASCII=66
Elseif letter="C" Then
getASCII=67
Elseif letter="D" Then
getASCII=68
Elseif letter="E" Then
getASCII=69
Elseif letter="F" Then
getASCII=70
Elseif letter="G" Then
getASCII=71
Elseif letter="H" Then
getASCII=72
Elseif letter="I" Then
getASCII=73
Elseif letter="J" Then
getASCII=74
Elseif letter="K" Then
getASCII=75
Elseif letter="L" Then
getASCII=76
Elseif letter="M" Then
getASCII=77
Elseif letter="N" Then
getASCII=78
Elseif letter="O" Then
getASCII=79
Elseif letter="P" Then
getASCII=80
Elseif letter="Q" Then
getASCII=81
Elseif letter="R" Then
getASCII=82
Elseif letter="S" Then
getASCII=83
Elseif letter="T" Then
getASCII=84
Elseif letter="U" Then
getASCII=85
Elseif letter="V" Then
getASCII=86
Elseif letter="W" Then
getASCII=87
Elseif letter="X" Then
getASCII=88
Elseif letter="Y" Then
getASCII=89
Elseif letter="Z" Then
getASCII=90
ElseIf letter="a" Then
getASCII=97
Elseif letter="b" Then
getASCII=98
Elseif letter="c" Then
getASCII=99
Elseif letter="d" Then
getASCII=100
Elseif letter="e" Then
getASCII=101
Elseif letter="f" Then
getASCII=102
Elseif letter="g" Then
getASCII=103
Elseif letter="h" Then
getASCII=104
Elseif letter="i" Then
getASCII=105
Elseif letter="j" Then
getASCII=106
Elseif letter="k" Then
getASCII=107
Elseif letter="l" Then
getASCII=108
Elseif letter="m" Then
getASCII=109
Elseif letter="n" Then
getASCII=110
Elseif letter="o" Then
getASCII=111
Elseif letter="p" Then
getASCII=112
Elseif letter="q" Then
getASCII=113
Elseif letter="r" Then
getASCII=114
Elseif letter="s" Then
getASCII=115
Elseif letter="t" Then
getASCII=116
Elseif letter="u" Then
getASCII=117
Elseif letter="v" Then
getASCII=118
Elseif letter="w" Then
getASCII=119
Elseif letter="x" Then
getASCII=120
Elseif letter="y" Then
getASCII=121
Elseif letter="z" Then
getASCII=122
End If
End Function

size=Inputbox("Please input size of the letter (LARGE or SMALL IN CAPS)")

valid=0

While valid=0
If size="LARGE" then
font=2
valid=1
ElseIf size="SMALL" then
font=3
valid=1
Elseif Not size="SMALL" & "LARGE" then
msgbox"please try again"
size=Inputbox("Please input size of the letter (LARGE or SMALL IN CAPS)")
End If
Wend

name=inputbox("what is the word? Please write your word in the box below : ", "Your word")
msgbox("Your word is ") + name

'Get length of name to build array'
nameLength = Len(name)

'Declare arrays for use'
ReDim nameArr(nameLength)
ReDim nameToNum(nameLength)

'Convert name to array of single characters
For i=1 To nameLength
nameArr(i)=Mid(name,i,1)
Next

'Convert letters from nameArr into ASCII values'
For i=1 To nameLength
nameToNum(i) = getASCII(nameArr(i))
Next

'For Debugging'
For i=1 To nameLength
msgbox(nameToNum(i))
Next