Creo que no necesitas de un FOR si solo es el ITEM seleccionado el que se guardará. A tu query le falta un ( ' ), Intenta asi:
Código vb:
Ver originalNombre = Lst_usuarios.ListItems.Item(Lst_usuarios.SelectedI tem.Index).SubItems(i)
Telefono = Lst_usuarios.ListItems.Item(Lst_usuarios.SelectedI tem.Index).SubItems(i)
SQL = "INSERT INTO persona_envios (persona_envio, numero_envio, Texto_mensaje) VALUES ( '" & nombre & "', '" & telefono & "','" & txt_mensaje.Text & "')"
g_db.Execute SQL