Imports System

​

Public Class Program

​

    Public Shared Sub Main()

        Dim input = Console.ReadLine()

        Dim characters = input.ToCharArray()

        Dim answer As Double = 0

        For i As Integer = 0 To characters.Length - 1 Step 2

            If(i + 2) > characters.Length Then Exit For

            Dim param1 = Convert.ToDouble(characters(i + 1).ToString())

            Dim operation = characters(i + 1)

            Dim param2 = Convert.ToDouble(characters(i + 2).ToString())

            answer += Compute(param1, param2, operation)

        Next

​

        Console.WriteLine(answer)

    End Sub

​

    Public Shared Function Compute(ByVal param1 As Double, ByVal param2 As Double, ByVal operation As Char) As Double

        Select Case operation

            Case "+"c

                Return param1 + param2

            Case "-"c

                Return param1 - param2

            Case "*"c

                Return param1 * param2

            Case "/"c

                Return param1 / param2

            Case Else

                Return 0

        End Select

    End Function

End Class

​