Option Strict On

Module Module1
    Sub Main()
        'let'
        Dim S As String = Console.ReadLine()

        'var'
        Dim ans As Long = 0

        For Each c In S
            ans += New Long() {-1, 1}(Math.Abs(CInt(c = "+")))
        Next

        Console.WriteLine(ans)

    End Sub
End Module