A função VBA Val retorna os números contidos em uma sequência de caracteres até encontrar um caractere não numérico.
Esta função aceita apenas "." como separador decimal.
Val(texto)
Usando a função Val para retornar strings de vários caracteres como um número:
Sub ValExample()
MsgBox Val("1") 'Retorna: 1
MsgBox Val(" 1 ") 'Retorna: 1
MsgBox Val(1) 'Retorna: 1
MsgBox Val("1h") 'Retorna: 1
MsgBox Val("h1") 'Retorna: 0
MsgBox Val("1 number") 'Retorna: 1
MsgBox Val("number 1") 'Retorna: 0
MsgBox Val("2 2") 'Retorna: 22
MsgBox Val("2.2") 'Retorna: 2.2
MsgBox Val("2,2") 'Retorna: 2
MsgBox Val("75000 Kyiv") 'Retorna: 75000
MsgBox Val("Kyiv 75000") 'Retorna: 0
MsgBox Val("Excel") 'Retorna: 0
End Sub