mbrady5 (4/18/2014)

---

Hello, I am an idiot when it comes to VBA. With that being said, I could use some help. There is some VBA I'd like to convert to a T SQL function and I am certain there are many people that could do such a thing quickly.

Thanks for any assistance.

Public Function GetType(strNumber As String) As String

Dim intPos

For intPos = 1 To Len(strNumber)

If IsNumeric(Mid(strNumber, intPos, 1)) Then

Exit For

End If

Next

GetType = Trim(Left(strNumber, intPos - 1))

End Function