Public Class Form1
    Dim kategorinummer As Integer
    Dim antallmeter As Integer
    Dim prismeter As Decimal
    Dim kostnad As Decimal
    Dim kategori1 As Decimal = 15.5
    Dim kategori2 As Decimal = 18.5
    Dim kategori3 As Decimal = 32
    Dim skatt As Integer = 25
    Dim priskategori As String

    Private Sub btnBergegn_Click(sender As Object, e As EventArgs) Handles btnBergegn.Click
        kategorinummer = txtKategorinr.Text
        antallmeter = txtMeter.Text

        If kategorinummer = Int(kategorinummer) Then 'kategorinummer er et heltall
            If kategorinummer > 1 And kategorinummer < 3 Then 'kategorinummer er mellom 1 og 3
                If antallmeter = Int(antallmeter) Then 'antall meter er et heltall
                    If antallmeter > 0 And antallmeter < 20 Then 'antall meter er større enn 0 og mindre enn 20
                        ' Her ønsker jeg en enklere måte enn 100 if strenger til å velge kategori 1-3 for å regne pris per meter
                        prismeter = antallmeter * kategori1 ELLER 2 ELLER 3 basert på input i kategorinummer

                    Else ' antallmeter ikke mellom 0 og 20
                        MsgBox("Antall meter må være et heltall større enn 0 og mindre enn 20")
                    End If
                Else 'antallmeter ikke en integer
                    MsgBox("Antall meter må være et heltall større enn 0 og mindre enn 20")
                End If
            Else 'kategorinummer ikke mellom 1 og 3
                MsgBox("Kategorinummer må være et heltall og ligge mellom 1 og 3")
            End If
        Else
            'Kategorinummer er ikke et heltall, gi feilmelding til sluttbruker
            MsgBox("Kategorinummer må væære et heltall og ligge mellom 1 og 3")
        End If
    End Sub
End Class