Ibland när datorn går förbi nedanstående rad...

If LDatumschema.ListCount > 0 Then 'detta är en listbox

... så tömms min strängvariabel, det är just denna rad eftersom att jag har satt ut breakpoints och stegat. Men denna if-sats inte kan väl inte trigga någon kod?
Har inte någon som helst aning om vad det kan vara. Variabeln och listboxen har inte samma namn.

Kan du skicka med koden för hela proceduren?

Det är annars som att du kliper ut en bit av en karta och pekar på den lilla biten och frågar vart du är. ;o)

Public TopVarde as currency 'används i LaddalblDagar bla
Public LeftVarde as currency 'används inte bara i proceduren nedan
Public Datumet as string

Public Sub LaddaKontroller()
TopVarde = 600
LeftVarde = 600

If LDatumschema.ListCount > 0 Then 'om Datumet har ett värde, så tömms den här
Set Formular = Me
Else
Set Formular = frmSchema
End If

For i = 1 To iAntalKontroller
LaddalblDagar i '
LaddatxtVecka i ' Dessa procedurer gör kontrollarrayer
LaddaChdag i '

LeftVarde = LeftVarde + 1350

If LDatumschema.ListCount = 0 Then 'om Datumet har ett värde, så tömms den här
frmSchema.CoDag.AddItem "Dag " & i
End If

Next i

frmSchema.PRedigera.Visible = True
End Sub