Condição a função FORMAT

[Rusley]

Ola amigos. Estou fazendo um projeto e com algumas dúvidas.

Tenho o seguinte código:

private sub TxtNumero_LostFocus()

 if   FORMAT(TxtNumero.Text, "15.###") then

          TxtPartido.text = "PMDB"

else

          TxtNumero.text = empty
          TxtPartido.text = empty

msgbox "Digite um número de partido válido"

end if

end sub

Eu pretendo com este código o seguinte: quando o objeto "TxtNumero" perder o foco, a condição if entra verificando se os dois primeiros números digitados é 15, se for, a propriedade Text do objeto "TxtPartido" vai ficar com a string "PMDB".

Mas não é isso que está acontecendo.... como posso resolver este problema?

Agradeço antecipadamente.

Editado Novembro 18, 2008 por kuroi
Adicionar tag CODE

[kuroi]

não é so usar o Left()??

If Left(TxtNumero.Text, 2) = "15" Then
    'é 15
Else
    'não é 15
End If[/code]

[Pandox]

o que você esta fazendo é verificando e formatando ao mesmo tempo.

a Função Left já resolve isso para você. como o nosso amigo kuroi disse