Imports EgtUILib

Public Module MsgConversion

   Public Function MsgToString(sMsgOrNum As String) As String
      Dim nMsg As Integer = 0
      ' se la conversione da stringa a numero avviene correttamente ritorno il messaggio associato a quel numero
      If Integer.TryParse(sMsgOrNum, nMsg) Then
         Return EgtMsg(nMsg)
         ' altrimenti ritorno la stringa letta
      Else
         Return sMsgOrNum
      End If
   End Function

End Module