Untitled

        Dim sngBox, sngPorto As Single
        Dim strBox, strPorto, strVal, strNamn As String

        sngBox = InputBox("Hur mycket väger ditt brev? Skriv vikt i gram.")
        strBox = InputBox("Vart ska brevet skickas? Skriv 'Inrikes' eller 'Utrikes'")

        If strBox = "Inrikes" Then
            strVal = InputBox("Hur vill du skicka brevet? Skriv 'Brev' eller 'Ekonomibrev'")
        Else
            strVal = InputBox("Hur vill du skicka brevet? Skriv 'Express', 'Prioritaire' " & _
            "eller 'B Ekonomibrev'")
        End If

        Select Case strBox = "Inrikes"
            Case strVal = "Brev" And sngBox = 0 To 99
                sngPorto = 5
            Case strVal = "Brev" And sngBox = 100 To 249
                sngPorto = 15
            Case strVal = "Brev" And sngBox > 250
                sngPorto = 30
        End Select

        If strVal = "Brev" Then
            strNamn = "Brev"
        ElseIf strVal = "Ekonomibrev" Then
            strNamn = "Ekonomibrev"
        ElseIf strVal = "Express" Then
            strNamn = "Expressbrev"
        ElseIf strVal = "Prioritaire" Then
            strNamn = "1a Klass Brev"
        ElseIf strVal = "B Ekonomibrev" Then
            strNamn = "Ekonomibrev"
        End If

        MsgBox("Du ska skicka ett brev som väger: " & sngBox & "gram" & vbCrLf & _
        "Du ska skicka det: " & strBox & vbCrLf & _
        "Det ska skickas som: " & strNamn & vbCrLf & _
        "Det kommer kosta dig: " & sngPorto & "kr")
    End Sub