Imports System

Public Module Module1

    Public Sub Main()

        'dim Harry_Potter("***CAused Errors***")

        dim The_String as string = "This is the string am using using using"

        dim The_SubString as string = ""

        'Iterating through a string 

        For i = 0 to The_String.length()-1

            console.writeline(The_String(i))        

        Next

        'Using the substring to copy out part of a string. 

        For i = 0 to The_String.length()-4

            The_SubString =  The_String.Substring(i, 4) 

            console.writeline(The_SubString )       

        Next

​

​

        'Using the substring to copy out part of a string. 

        For i = 0 to The_String.length()-1

            'console.writeline(ASC(The_String(i))) 'Not available in Fiddle. 

            'Capital Letters   65-90

            'Lowercase Letters 97-122   

            'Numbers 48-57

        Next

        'How to check if a string contains a phrase

        If The_String.Contains("bob") Then

            console.writeline("The string contains the word string")

        End if

​

​

​

        'Returns how many time a substring occurs in a string

        Dim The_Search_Word as string = "using"

        Dim location As Integer = 0

        Dim occurances As Integer = 0

        Do

            location = The_String.IndexOf(The_Search_Word, location)

            If location <> -1 Then

                 occurances += 1

                 location += The_Search_Word.Length

             End If

        Loop Until location = -1

        console.writeline(occurances)

​

    End Sub

End Module