If s.Contains("+") Then
            Dim exp As String = s.Replace("x", x)
            Dim nums() As String = exp.Split("+")
            Console.WriteLine("Number of Operands are : " & nums.Length)
            Dim sum As Integer
            For Each x1 As String In nums
                Dim num As Integer = x1
                sum += num
            Next
            Console.WriteLine("The Solution for this Expression is : " & sum)
        End If

        If s.Contains("-") Then
            Dim exp As String = s.Replace("x", x)
            Dim nums() As String = exp.Trim.Split("-")
            Console.WriteLine("Number of Operands are : " & nums.Length)
            Dim subs As Integer
            For Each x1 As String In nums
                Dim num As Integer = x1
                subs -= num
            Next
            Console.WriteLine("The Solution for this Expression is : " & subs)
        End If

        If s.Contains("*") Then
            Dim exp As String = s.Replace("x", x)
            Dim nums() As String = exp.Trim.Split("*")
            Console.WriteLine("Number of Operands are : " & nums.Length)
            Dim mul As Integer
            For Each x1 As String In nums
                Dim num As Integer = x1
                mul *= num
            Next
            Console.WriteLine("The Solution for this Expression is : " & mul)
        End If