Hi,

can anyone tell me ehy the following code doesn't work and how to correct it?

<code>
Dim v As Integer
Dim alarm_type As String
Dim alarm_type1 As String
Dim alarm_type2 As String
Dim alarm_type3 As String
Dim alarm_type4 As String

v = 0

If .... Then
If v = 0 Then
alarm_type = Mid$....
v = v + 1
Else
alarm_type & v = Mid$.....
v = v + 1
End If
End If

alarm_type = v & Mid$


Good Luck

Be a part of the DaniWeb community

We're a friendly, industry-focused community of developers, IT pros, digital marketers, and technology enthusiasts meeting, networking, learning, and sharing knowledge.