Function GetNumberFromString(InputString)

Dim InputString as string
Dim OutputNumber as integer

Select Case InputString

Case "String 1"

OutputNumber = 101

Case "String 2"

OutputNumber = 289

Case "String 3"

OutputNumber = 753

End Select

GetNumberFromString = OutputNumber

End Function


--
Kaak
------------------------------------------------------------------------
Kaak's Profile: http://www.excelforum.com/member.php...fo&userid=7513
View this thread: http://www.excelforum.com/showthread...hreadid=488525