Alternerende tekenreeks in VBA

[VBAdummies]

In een formulier vraag je een tekenreeks op die je verwerkt tot een tekenreeks met alternerend een hoofdletter en kleine letter. Toon deze nieuwe reeks op scherm.

Ik zoek VBA code voor het volgende te kunnen verkrijgen:
invoer: sneeuwvlokjes
uitvoer: SnEeUwVlOkJeS

Er moet dus afwisselend worden gewerkt met hoofdletters en kleine letters.
Kan er iemand mij helpen om deze code te schrijven?
(Dringend nodig!)

 

[OctaFish]

Is niet zo lastig... Probeer deze functie maar eens!

Function OmenOm(Tekst As String) As String
Dim iLen As Integer, i As Integer
Dim sTekst As String
    
    sTekst = ""
    iLen = Len(Tekst)
    For i = 1 To iLen
        If (i / 2) = Int(i / 2) Then
            sTekst = sTekst & LCase(Mid(Tekst, i, 1))
        Else
            sTekst = sTekst & UCase(Mid(Tekst, i, 1))
        End If
    Next i
    OmenOm = sTekst
End Function

 

[paulva]

Dit zou moeten werken:

Bekijk bijlage sneeuwvlokjes.xls