Try adding this code to OmronBaseCom and using them:
Public Function ReadAsString(ByVal startAddress As String, ByVal numberOfElements As Integer) As String
Dim values() As String = Read(startAddress, numberOfElements)
Return MfgControl.AdvancedHMI.Drivers.Common.CalculationsAndConversions.WordsToString(values)
End Function
Public Sub WriteAsString(ByVal startAddress As String, ByVal stringToWrite As String)
If Not String.IsNullOrEmpty(stringToWrite) Then
Dim Values() As Integer = MfgControl.AdvancedHMI.Drivers.Common.CalculationsAndConversions.StringToWords(stringToWrite)
Dim ValuesAsString(Values.Length - 1) As String
For i = 0 To ValuesAsString.Length - 1
ValuesAsString(i) = CStr(Values(i))
Next
Write(startAddress, ValuesAsString)
End If
End Sub