Spanish [SOLUCIONADO] ¿Cómo se puede comparar el "contenido" de dos cadenas?

Dim A = "Ver. 01" As String
Dim B = "Ver. 02" As String
If A > B Then 
  Log(" A Mayor B")
  Else
  Log ("A No mayor que B") 
End If

main_activity_create (java line: 453)
java.lang.NumberFormatException: Invalid double: "Ver. 01"
    at java.lang.StringToReal.invalidReal(StringToReal.java:63)
    at java.lang.StringToReal.initialParse(StringToReal.java:114)
    at java.lang.StringToReal.parseDouble(StringToReal.java:282)
    at java.lang.Double.parseDouble(Double.java:301)
    at b4a.epai.fichajes.main._activity_create(main.java:453)
    at java.lang.reflect.Method.invoke(Native Method)
    at anywheresoftware.b4a.BA.raiseEvent2(BA.java:169)
    at b4a.epai.fichajes.main.afterFirstLayout(main.java:102)
    at b4a.epai.fichajes.main.access$000(main.java:17)
    at b4a.epai.fichajes.main$WaitForLayout.run(main.java:80)
    at android.os.Handler.handleCallback(Handler.java:739)
    at android.os.Handler.dispatchMessage(Handler.java:95)
    at android.os.Looper.loop(Looper.java:158)
    at android.app.ActivityThread.main(ActivityThread.java:7225)
    at java.lang.reflect.Method.invoke(Native Method)
    at com.android.internal.os.ZygoteInit$MethodAndArgsCaller.run(ZygoteInit.java:1230)
    at com.android.internal.os.ZygoteInit.main(ZygoteInit.java:1120)

Dim NumVersion1, NumVersion2 as Int
Dim TxtVersion=  "Ver. " as String

If NumVersion1 > NumVersion2 Then 
  Log(" NumVersion1 Mayor NumVersion2")
  Log("La Versión mayor es: " & TxtVersion & NumVersion1
Else
  Log ("NumVersion1 No mayor que NumVersion2") 
  Log("La Versión menor es: " & TxtVersion & NumVersion2
EndIf

    Dim pm As PackageManager ' libreria Phone
    Try
      VersionAplicacion = pm.GetVersionName(NombrePaquete)
    Catch
       Log(LastException)
    End Try

CompareTo (OtroString As String) As Int

"abc".CompareTo("da") ' < 0
"abc".CompareTo("Abc") ' > 0
"abc".CompareTo("abca")' < 0

Dim V1, V2 As String

V1 = "1.51"
V2 = "1.6"
 
Log("Comparar Versiones " & CompararVersiones(V1,V2))


' Devuelve: 0 = , 1 >  2>
Sub CompararVersiones(TxtVersion1 As String , TxtVersion2 As String) As Int
    
   Dim V1, V2 As Double  ' la clave del exito ;-)
 
   V1 = TxtVersion1
   V2 = TxtVersion2
 
   If V1 = V2 Then
     Log("Iguales")
     Return 0
   End If
 
   If V1 > V2 Then
     Log("Primero Mayor")
     Return 1
   Else
     Log("Segundo Mayor") 
     Return 2
   End If

 
End Sub

' Compara dos cadenas y dice si la primera cadena es ">", "=" ó "<" que la segunda
' Ej. ComparaCadenas("001", "002) devolvería "<"
Sub ComparaCadenas(Cadena1 As String, Cadena2 As String) As String
    If Cadena1.EqualsIgnoreCase(Cadena2) Then
            Return "="
        Else
            Dim lista As List
            lista.Initialize2(Array As String(Cadena1, Cadena2))
            lista.Sort(True)
            If lista.IndexOf(Cadena1) = 0 Then 
                Return "<"
             Else
                Return ">"
            End If
    End If
End Sub