If bla > 0 Then
    'dialog
    Dim myForm As frmSelection = New frmSelection(nameList)
    myForm.Show()
    ' get selection
     selected = CType(myForm.selectedVal, String)
End If
...

__________________________
Es ist nicht schlimm etwas nicht zu wissen, schlimmer ist, es nicht zu erfragen.
(alt. t?rkisches Sprichwort)