Read And Convert Multiple Of 100s And 10s Numbers Using VBA

I require reading numbers which are multiple of 100s and 10s.

The following snippet of code below (part of larger code), does not pick up input values of 100s.

Code:
'=====================//VL==============================================='
If UCase(Left(Dn, 2)) = "VL" Then
If IsNumeric(Mid(Dn, 3, 1)) Then 'And IsNumeric(Mid(Dn, 4, 1)) Then
If Mid(Dn, 4, 1) = "0" Then
Dn.Offset(, 1) = Val(Mid(Dn, 3, 3)) + 10
Else
Dn.Offset(, 1) = Val(Mid(Dn, 3, 3)) + 0.1
End If
Else
Dn.Offset(, 1) = Val(Mid(Dn, 3, 2)) + 1
End If
'=============================================================='

I tired many ways manipulating the code to make it work, but can not get it to work.

Input:
VL10s
VL100s
VL11s
VL11

Desired Output:
VL10s --> 11
VL100s --> 110
VL11s --> 11.1
VL11 --> 11.1

This problem is part of another post (link below):
Extract numbers from a string and run arithmetic function using excel VBA.