ObjClassClassConvert

Public Class ClassConvert
    Public Function ConvertUpperCase(ByVal code As String) As String
        Dim ConvertCode As String
        ConvertCode = StrConv(code, VbStrConv.Uppercase)
        ConvertUpperCase = ConvertCode
    End Function
    Public Function ConvertLowerCase(ByVal code As String) As String
        Dim ConvertCode As String
        ConvertCode = StrConv(code, VbStrConv.Lowercase)
        ConvertLowerCase = ConvertCode
    End Function
End Class