Public Enum ActivityStateEnum
    Defaulted
    Stopped
    Started
    Finished
    Zero
End Enum

Public Module ActivityStateEnumMapper
    ''' <summary>
    ''' Gets the corresponding enum value from the <see cref="ActivityStateEnum"/> with a string value.
    ''' </summary>
    ''' <param name="activityStateValue">The string value</param>
    ''' <returns></returns>
    Public Function GetEnumValueFromString(activityStateValue As String) As ActivityStateEnum
        Select Case activityStateValue.ToLower()
            Case "defaulted"
                Return ActivityStateEnum.Defaulted
            Case "stopped"
                Return ActivityStateEnum.Stopped
            Case "started"
                Return ActivityStateEnum.Started
            Case "finished"
                Return ActivityStateEnum.Finished
            Case "zero"
                Return ActivityStateEnum.Zero
            Case Else
                Throw New Exception($"The activity state value is unknown for getting a corresponding enum value: '{activityStateValue}'.")
        End Select
    End Function

    ''' <summary>
    ''' Gets the corresponding enum value from <see cref="ActivityStateEnum"/> with a char value.
    ''' </summary>
    ''' <param name="letter"></param>
    ''' <returns></returns>
    public Function GetActivityStateFromLetter(letter As Char) As ActivityStateEnum
        'If Nothing return default.
        if letter = nothing Then Return ActivityStateEnum.Defaulted
        'Check for type and return enum value.
        Select Case Char.ToUpper(letter)
            Case "S"C
                Return ActivityStateEnum.Started
            Case "P"C
                Return ActivityStateEnum.Stopped
            Case "F"C
                Return ActivityStateEnum.Finished
            Case Else
                Throw New Exception($"The activity state value letter is unknown for getting a corresponding enum value: '{letter}'.")
        End Select
    End Function

    public Function GetLetterFromActivityState(activityState As ActivityStateEnum) As Char
        Select Case activityState
            Case ActivityStateEnum.Finished
                Return "F"C
            Case ActivityStateEnum.Stopped
                Return "P"C
            Case ActivityStateEnum.Started
                Return "S"C
            Case ActivityStateEnum.Defaulted
                Return "D"C
            Case Else
                Return ""
        End Select
    End Function

End Module