Функция VBA Val возвращает цифры, содержащиеся в строке символов, пока не найдет нечисловой символ.
Эта функция принимает только "." как десятичный разделитель.
Val(text)
Использование функции Val для возврата строк разных символов в виде числа:
Sub ValExample()
MsgBox Val("1") 'Возвращает: 1
MsgBox Val(" 1 ") 'Возвращает: 1
MsgBox Val(1) 'Возвращает: 1
MsgBox Val("1h") 'Возвращает: 1
MsgBox Val("h1") 'Возвращает: 0
MsgBox Val("1 number") 'Возвращает: 1
MsgBox Val("number 1") 'Возвращает: 0
MsgBox Val("2 2") 'Возвращает: 22
MsgBox Val("2.2") 'Возвращает: 2.2
MsgBox Val("2,2") 'Возвращает: 2
MsgBox Val("75000 Kyiv") 'Возвращает : 75000
MsgBox Val("Kyiv 75000") 'Возвращает: 0
MsgBox Val("Excel") 'Возвращает: 0
End Sub