Mascara de entrada

[pkj]

Puedes guardarlo como texto y crearte funciones que devuelvan la parte que quieras del texto.

Ejm: una función que extrae la parte anterior al +

Código vb:

Function ExtrP1(Cadena As String) As Integer
    ExtrP1 = Left$(Cadena, InStr(1, Cadena, "+"))
End Function
 

MsgBox ExtrP1("25+365.25")
esto devuelve el primer 25 en formato Integer

o una funcion que devuelva un integer con cualquiera de las 3 partes del texto:

Código vb:

Function Extrae(Cadena As String, NumDato As Integer) As Integer
  Select Case NumDato
    Case 1:
      Extrae = Left$(Cadena, InStr(1, Cadena, "+"))
    Case 2:
      Extrae = Mid$(Cadena, InStr(1, Cadena, "+") + 1, Len(Cadena) - InStrRev(Cadena, ".") + 1)
    Case 3:
      Extrae = Mid$(Cadena, InStrRev(Cadena, ".") + 1)
    Case Else
      MsgBox "Número de dato inválido"
  End Select
End Function
 

MsgBox Extrae("25+365.25", 2)
Esto devuelve el 365 en Integer

Este es un modo. Todo depende de como tienes el dato en principio y que partes necesitas usar después.

Suerte