Inputbox til indtastning af tal, feks 243.

Jeg arbejder med et laboratorieinstrument som arbejder med VB-scripts. Jeg har nu brug for at kunne indtaste og gemme min analysevægt som består af 3 cifre (eks. 243) i en inputbox, så den bliver gemt i halen på analysenavnet(DataName) kunne foreksempel se sådan ud (testanalyse243). Analysen bliver gemt i følgende linie: NMR.Execute("WR " & DataName & "." & Ext & " Y")


Mit script ser ud som følger:

Option Explicit



Dim ListName       
Dim DataName       

Sub Main()
   
Dim r
Dim Ext
Dim Current
Dim Size

If NoHardware Then
  ShowError("Der er ikke forbindelse til NMR instrumentet")
  Exit Sub
End If
   
ListName="fersklaks"           
         
If ListName="" Then               
  Exit Sub
End If

If LoadList1(ListName)=FALSE Then 
     
    Exit Sub
End If

    DataName=GetDataName(2)           

    If DataName=""  Then   
Exit Sub                           
End If

'***Her vil jeg gerne promtes for min analysevægt***       
   
Current=NMR.GetParameter("%DATADIR")   
DeleteFile (Current & DataName & "*.*")
NMR.Execute("~PMODE")               
NMR.Execute("XY QUIT")           
NMR.Execute("XY")

NMR.Execute("~AMODE")               
NMR.Execute("LOAD CPMG")           
   
NMR.Execute("RAP testuco")
   
Ext=1                             
Do While NextList1(r)             
  NMR.Execute("~AMODE")             
  NMR.Execute("TAU " & r)           
  NMR.StatusMessage("Tau = " & r )
  NMR.Go                           
 
  NMR.Execute("Even")
   
                                               
  NMR.Execute("WR " & DataName & "." & Ext & " Y") ' Gemmer data i fil
  Ext=Ext+1                         

  NMR.Execute("SIZE 20")           
  Size=NMR.ReturnValue
  NMR.Execute("XY DATA " & r & Size)
Loop

NMR.Execute("XY QUIT")

      Exit Sub

End Sub