'Mach dir ne Hilfsvariable 
Private Sub Command1_click()
Dim hilfsvariable as string
 
'Dann starte zuerst Case Select 
 
 
Select Case Check1.Value
    Case 1
        hilfsvariable = "15 "
    Case 0
       hilfsvariable = (900 * Rnd + 100)
End Select
 
 
'dann öffne die datei 
 
 
Open App.Path & "\Tool.ini" For Output As #1
 
'und schreibe
 
        Print #1, "OpAB=" & hilfsvariable
Close 1#
end sub