Dim a As String = "zafer"
Dim s As String
Dim Buyuk As Boolean = True 'True ise büyük küçük ile başlar, False ise, küçük büyük ile başlar
For i As Integer = 1 To Len(a)
If Buyuk Then
s = s & Mid(a, i, 1).ToUpper
Else
s = s & Mid(a, i, 1).ToLower
End If
Buyuk = Not Buyuk
Next i
MsgBox(s)
girilen karekeri bir büyük bir küçük nasıl yapıcaz meil atarsan sevinirim ör("ZaFeR ") bu sekilde