• Home
 · 
• String Manipulation
 · 
• Enter a sentence like i am ready to chat online and it'll change to I Am ReAdY To cHaT OnLiNe C

Enter a sentence like i am ready to chat online and it'll change to I Am ReAdY To cHaT OnLiNe C

Enter a sentence like "i am ready to chat online" and it'll change to "I Am ReAdY To cHaT OnLiNe" COOL !

Rate Enter a sentence like i am ready to chat online and it'll change to I Am ReAdY To cHaT OnLiNe C

• 1
• 2
• 3
• 4
• 5

(1(1 Vote))

  Dim i As Integer, b As String
  For i = 1 To Len(AnyStr)
  Select Case i Mod 2
    Case 0
      AnyStr = Left(AnyStr, i - 1) + LCase(Mid(AnyStr, i, 1)) + Right(AnyStr, Len(AnyStr) - i)
    Case 1
      AnyStr = Left(AnyStr, i - 1) + UCase(Mid(AnyStr, i, 1)) + Right(AnyStr, Len(AnyStr) - i)
  End Select
  Next
  UpDn = AnyStr
  
End Function