VBA function to convert column number to letter?

Function Col_Letter(lngCol As Long) As String

Dim vArr
vArr = Split(Cells(1, lngCol).Address(True, False), "$")
Col_Letter = vArr(0)
End Function

Sub Test()
MsgBox Col_Letter(100)
End Sub