Public Class frmTekstMetPunten


    Private Sub btnOmzetten_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnOmzetten.Click
        'Declaratie
        Dim intTeller As Integer
        Dim strTekst, strTellen As String


        For intTeller = 0 To strTekst.Length Step 2
            strTellen = intTeller.ToString


        Next
    End Sub
End Class

Class Program
	Private Shared Sub Main(args As String())
		Dim woord As String = "Langlaufen", nieuwWoord As String = Nothing
		Dim woordLengte As Integer, teller As Integer


		woordLengte = woord.Length


		For teller = 0 To woord.Length - 1
			If teller Mod 2 <> 0 Then
				nieuwWoord += "."
			Else
				nieuwWoord += woord.Substring(teller, 1)




			End If
		Next
		Console.WriteLine(nieuwWoord)
		Console.ReadLine()


	End Sub
End Class

class Program
    {
        static void Main(string[] args)
        {
            string woord = "Langlaufen", nieuwWoord = null;
            int woordLengte, teller;


            woordLengte = woord.Length;


            for (teller = 0; teller <= woord.Length-1; teller++)
            {
                if (teller % 2 != 0)
                {
                    nieuwWoord += ".";
                }
                else
                {
                    nieuwWoord += woord.Substring(teller, 1);
                }


                
            }
            Console.WriteLine(nieuwWoord);
            Console.ReadLine();


        }
    }