Someone

Private Sub LoadTasks()
    
    ' This does not add entries from the registry
    
    Dim intTotalTasks As Integer
    
    intTasks = 0                     ' Reset
    
    For intTasks = 0 To 12 - 1
        strTask = CStr(intTasks)
        strTaskname(strTask) = Getstring(HKEY_LOCAL_MACHINE, "SOFTWARE\D-Code Software\Taskmaster Server\Tasks\", "Task" & strTask)
        
        If strTaskname(strTask) <> "" Then
            lstToDo.AddItem strTaskname(strTask)
        Else
            Exit For
        End If
    Next intTasks
End Sub