✔ string erstellen

[d4kine]

BIS SORRY für den titel, aber ich wusste nichtm wie ich es anders ausdrücken sollte.
Mein Problem ist, dass ich einen String ca. 5 mal in einem code habe. Hier mal ein beispiel:

   Private Sub Form_load()
   lstBox.AddItem("Test")
   End Sub
   
   Private Sub Command1_Click()
   lstBox.AddItem("Test")
   End Sub

so, davon hab ich mehrere sachen im code, aber ich will das vereinfachen, D.H. Ich gebe anstatt von lstBox.AddItem("Test") einfach nur 123 ein, wo dann über Form_Load() 123 = lstBox.AddItem("Test") stehen würde. wie in tht halt mit den $ funktionen. Wisst ihr was ich meine? wenn ja, ist das überhaupt möglich, wenn ja, wie?

 

[Filone]

Dann musst Du eine öffentliche Variable definieren.

Public strToInsert As String 'in einem Modul, oder
Private strToInsert As String 'in einer Form

Private Sub Form_Load()
   strToInsert = "Test"
End Sub

Private Sub cmdAdd_Click()
 Form1.List1.Additem strToInsert
End Sub

 

[d4kine]

Genau sowas hab ich gesucht, vielen dank!