Lineweight

Option Explicit
Dim ar(0 To 26, 0 To 1) As Variant
Dim lwt As Long
Private Sub CommandButton1_Click()
Unload Me
End Sub
Private Sub ListBox1_Click()
Dim i, itm
For i = 0 To ListBox1.ListCount - 1
        If ListBox1.Selected(i) = True Then
            itm = ListBox1.List(i)
            lwt = CLng(ar(i, 1))
        End If
    Next i
MsgBox "Lineweight Selected: " & vbTab & itm & "mm" & vbCr & _
       "Enum value of lineweight is: " & vbTab & lwt
       ' Me.Hide
       '<< rest code goes here >>
       '<< use 'lwt' as lineweight value >>
       ' Me.Show
End Sub
Private Sub UserForm_Initialize()
ar(0, 0) = "ByLayer": ar(0, 1) = -1
ar(1, 0) = "ByBlock": ar(1, 1) = -2
ar(2, 0) = "ByDefault": ar(2, 1) = -3
ar(3, 0) = "0.0": ar(3, 1) = 0
ar(4, 0) = "0.05": ar(4, 1) = 5
ar(5, 0) = "0.09": ar(5, 1) = 9
ar(6, 0) = "0.13": ar(6, 1) = 13
ar(7, 0) = "0.15": ar(7, 1) = 15
ar(8, 0) = "0.18": ar(8, 1) = 18
ar(9, 0) = "0.20": ar(9, 1) = 20
ar(10, 0) = "0.25": ar(10, 1) = 25
ar(11, 0) = "0.30": ar(11, 1) = 30
ar(12, 0) = "0.35": ar(12, 1) = 35
ar(13, 0) = "0.40": ar(13, 1) = 40
ar(14, 0) = "0.50": ar(14, 1) = 50
ar(15, 0) = "0.53": ar(15, 1) = 53
ar(16, 0) = "0.60": ar(16, 1) = 60
ar(17, 0) = "0.70": ar(17, 1) = 70
ar(18, 0) = "0.80": ar(18, 1) = 80
ar(19, 0) = "0.90": ar(19, 1) = 90
ar(20, 0) = "1.00": ar(20, 1) = 100
ar(21, 0) = "1.06": ar(21, 1) = 106
ar(22, 0) = "1.20": ar(22, 1) = 120
ar(23, 0) = "1.40": ar(23, 1) = 140
ar(24, 0) = "1.58": ar(24, 1) = 158
ar(25, 0) = "2.00": ar(25, 1) = 200
ar(26, 0) = "2.11": ar(26, 1) = 211
Me.ListBox1.List() = ar
End Sub