' crm  direction stuff
Function GetDirection(intDirection As Integer) As String
    Dim strRet

    On Error GoTo ErrorExit


    Select Case intDirection
        Case 0
            strRet = "North"
        Case 1
            strRet = "no way"
        Case 2
            strRet = "NorNorEast"
        Case 3
            strRet = "no way"
        Case 4
            strRet = "NorEast"
        Case 5
            strRet = "no way"
        Case 6
            strRet = "EastNorEast"
        Case 7
            strRet = "no way"
        Case 8
            strRet = "East"
        Case 9
            strRet = "no way"
        Case 10
            strRet = "EastSouEast"
        Case 11
            strRet = "no way"
        Case 12
            strRet = "SouEast"
        Case 13
            strRet = "no way"
        Case 14
            strRet = "SouSouEast"
        Case 15
            strRet = "no way"
        Case 16
            strRet = "South"
        Case 17
            strRet = "no way"
        Case 18
            strRet = "SouSouWest"
        Case 19
            strRet = "no way"
        Case 20
            strRet = "SouWest"
        Case 21
            strRet = "no way"
        Case 22
            strRet = "WestSouWest"
        Case 23
            strRet = "no way"
        Case 24
            strRet = "West"
        Case 25
            strRet = "no way"
        Case 26
            strRet = "WestNorWest"
        Case 27
            strRet = "no way"
        Case 28
            strRet = "NorWest"
        Case 29
            strRet = "no way"
        Case 30
            strRet = "NorWestNor"
        Case 31
            strRet = "no way"
    End Select

    GetDirection = strRet

ExitSub:
    Exit Function

ErrorExit:
    MsgBox Err.Description
    Resume ExitSub

End Function