Ing dinten Rebo Paing, 20 April '05 - 11:43:34 WIB
Premor ngendiko mekaten :
======================================
Coba Pake ini, semoga bisa membantu.
Function CariHuruf(Kata As String, HurufDicari As String) As Integer
Dim i As Variant
For i = 1 To Len(Kata)
If Mid(Kata, i, 1) = HurufDicari Then CariHuruf = CariHuruf + 1
Next
End Function
Private Sub Command1_Click()
Text2.Text = CariHuruf("programmer vb by spiderman spider", "r")
End Sub
Matur Suwun
Premor
Untuk keluar dari millis ini, kirim email kosong ke:
[EMAIL PROTECTED]
Yahoo! Groups Links
<*> To visit your group on the web, go to:
http://groups.yahoo.com/group/programmer-vb/
<*> To unsubscribe from this group, send an email to:
[EMAIL PROTECTED]
<*> Your use of Yahoo! Groups is subject to:
http://docs.yahoo.com/info/terms/
