DOSYA İndirmek/Yüklemek için ÜCRETLİ ALTIN ÜYELİK Gereklidir!
Altın Üyelik Hakkında Bilgi
=SOLDAN(A1;5)
=SOLDAN(YERİNEKOY(A1;" ";"";1);5)
=SOLDAN(A1;MBUL(" ";A1;1))
Private Sub CommandButton1_Click()
If UCase(Left(TextBox1, 1)) = "E" And UCase(Right(TextBox1, 1)) = "N" Then
MsgBox "HATALI BİLGİ GİRİŞİ !", vbCritical, "DİKKAT !"
End If
End Sub