colega você pode usar a funcao isnumeric
If IsNumeric(Left(Placa.Txt,3)) = False And IsNumeric(Right(Placa.txt,4)) = True then
msgbox "Placa Valida"
Else
msgbox "Placa Inválida"
End If
Me desculpe se houver algo errado no código, mas estou escrevendo de um PC sem VB, entao nao pude testa-lo