La función VBA Val devuelve los números contenidos en una cadena de caracteres hasta que encuentra un carácter no numérico.
Esta función sólo acepta "." como separador decimal.
Val(texto)
Usando la función Val para devolver cadenas de varios caracteres como un número:
Sub ValExample() MsgBox Val("1") 'Devoluciones: 1 MsgBox Val(" 1 ") 'Devoluciones: 1 MsgBox Val(1) 'Devoluciones: 1 MsgBox Val("1h") 'Devoluciones: 1 MsgBox Val("h1") 'Devoluciones: 0 MsgBox Val("1 number") 'Devoluciones: 1 MsgBox Val("number 1") 'Devoluciones: 0 MsgBox Val("2 2") 'Devoluciones: 22 MsgBox Val("2.2") 'Devoluciones: 2.2 MsgBox Val("2,2") 'Devoluciones: 2 MsgBox Val("75000 Kyiv") 'Devoluciones: 75000 MsgBox Val("Kyiv 75000") 'Devoluciones: 0 MsgBox Val("Excel") 'Devoluciones: 0 End Sub