|
str = InputBox("Input your name:","RP Test","Kevin")arrHero = Array("Kevin","Elaine","hsjzfling")If str = "" Or IsNull(str) ThenRP = 0Else For i = 1 To Len(str)RP = RP + Asc(Mid(str,i,1))*521 Next Ad = CInt(Left(CStr(RP),2)) RP = CInt(Right(CStr(RP),2)) If RP <= 50 And RP <= 50 Then RP = RP+ Ad En |
