Hi Andreas
You will have to convert whatever user is offering as his choice via inputbox to a boolean-variable, to meet this syntax (as example):
Code:
Sub InsertOption()
Dim blnsemicolon As Boolean
Dim blncomma As Boolean
'Select Comma:
blnsemicolon = False
blncomma = True
Range("A3").TextToColumns DataType:=xlDelimited, ConsecutiveDelimiter:=False, _
Semicolon:=blnsemicolon, Comma:=blncomma
End Sub
Cheers