Går det att göra den här koden på ett enklare sätt?
Private Sub spol1_Change()
spolt1.Caption = spol1.Value
If spol1.Value = 0 Then
spolt1.Caption = "N/A"
End If
If spol1.Value = 1 Then
spolt1.Caption = "0,1"
End If
If spol1.Value = 2 Then
spolt1.Caption = "0,2"
End If
If spol1.Value = 3 Then
spolt1.Caption = "0,3"
End If
If spol1.Value = 4 Then
spolt1.Caption = "0,4"
End If
If spol1.Value = 5 Then
spolt1.Caption = "0,5"
End If
If spol1.Value = 6 Then
spolt1.Caption = "0,6"
End If
If spol1.Value = 7 Then
spolt1.Caption = "0,7"
End If
If spol1.Value = 8 Then
spolt1.Caption = "0,8"
End If
If spol1.Value = 9 Then
spolt1.Caption = "0,9"
End If
If spol1.Value = 10 Then
spolt1.Caption = "1,0"
End If
If spol1.Value = 11 Then
spolt1.Caption = "1,1"
End If
If spol1.Value = 12 Then
spolt1.Caption = "1,2"
End If
If spol1.Value = 13 Then
spolt1.Caption = "1,3"
End If
If spol1.Value = 14 Then
spolt1.Caption = "1,4"
End If
If spol1.Value = 15 Then
spolt1.Caption = "1,5"
End If
If spol1.Value = 16 Then
spolt1.Caption = "1,6"
End If
If spol1.Value = 17 Then
spolt1.Caption = "1,7"
End If
If spol1.Value = 18 Then
spolt1.Caption = "1,8"
End If
If spol1.Value = 19 Then
spolt1.Caption = "1,9"
End If
If spol1.Value = 20 Then
spolt1.Caption = "2,0"
End If
Tack för hjälpen.