Hi guys,

Cannot appear to be able to get this function to not have the above error.... Any ideas?

Code:
    Private Function GetIncidentActions(ByVal FromAgentID As Integer, ByVal ToAgentID As Integer, ByVal incidentAction As Integer, ByVal ActionDate As Date) As String
        Dim str As String = String.Empty
        str += String.Format("({0}) ", ActionDate.ToString())
        Select Case incidentAction
            Case 1
                str += str = "Assigned By "
                str += str.Format("{0} for {1}", New Agent(FromAgentID).DisplayName, New Agent(ToAgentID).DisplayName)
            Case 2
                str += "Action By "
                If FromAgentID <> ToAgentID Then
                    str += str.Format("{0} for {1}", New Agent(FromAgentID).DisplayName, New Agent(ToAgentID).DisplayName)
                Else
                    str += New Agent(FromAgentID).DisplayName
                End If
            Case 4
                str += "Closed By "
                str += New Agent(FromAgentID).DisplayName
        End Select
        Return str
    End Function
Oh ther error is on both 'str.format'

Many thanks

Dave