Module Com_Codepoint
    Public Sub Codepoint()
        NewLine(Strings.ComputerInfo(2) & " Codepoint(s) available in your wallet")
    End Sub
End Module