Извините, что прошло много времени с тех пор, как я сделал VB, так что это может быть не идеально (возможно, это смесь C # и VB), но вы поняли:
Dim s = "V1245-12V0"
Dim lastButOneLetter = String.Empty
If s.Length > 1 Then
'Can only get the last-but-one letter from a string that is minimum 2 characters
lastButOneLetter = s.Substring(s.Length - 2, 1)
Else
'do something if string is less than 2 characters
End If
РЕДАКТИРОВАТЬ: исправлено, чтобы быть скомпилированным кодом VB.NET.