Проверить истинность высказывания: "Данное целое число является нечетным трехзначным числом" - VB

'LEN считает длину верно только у данных типа String
Dim s As Byte
'у типа данных Byte ответ всегда 1, согласно размера этого типа данных
s = 0
MsgBox$ Len(s)
 
Dim s1 As Integer
'у типа данных Integer ответ всегда 2, согласно размера этого типа данных
s1 = 0
MsgBox$ Len(s1)
 
Dim s2 As Long
'у типа данных Long ответ всегда 4, согласно размера этого типа данных
s2 = 0
MsgBox$ Len(s2)
 
Dim s3 As Single
'у типа данных Single ответ всегда 4, согласно размера этого типа данных
s3 = 0
MsgBox$ Len(s3)
 
Dim s4 As Double
'у типа данных Double ответ всегда 8, согласно размера этого типа данных
s4 = 0
MsgBox$ Len(s4)