Sub main()
        Console.Write("How many Emoji : ")
        Dim a As String = Console.ReadLine
        Dim em As Integer = 0
        Dim emoji(3) As String
        emoji(0) = ":)"
        emoji(1) = ":("
        emoji(2) = "):"
        emoji(3) = "(:"

        For i = 1 To a.Length - 1
            Dim crr As Char = a(i - 1)
            Dim nxt As Char = a(i)

            Dim crm As String = crr & nxt
            If emoji.Contains(crm) Then
                em += 1
            End If

        Next
        Console.WriteLine("Emoji Numbers : " & em)
    End Sub